home *** CD-ROM | disk | FTP | other *** search
/ Best of www.BestZips.com (Collector's Edition) / Best of WWW.BESTZIPS.COM Collector's Edition (JCSM Shareware) (JCS Marketing).ISO / grapprog / splt300w.zip / THPGL2.ZIP / T037.BAS < prev    next >
BASIC Source File  |  1995-05-01  |  441b  |  17 lines
  1. 10 OPEN "T037.PLT" FOR OUTPUT AS 1
  2. 20 PRINT #1,CHR$(27)+"%-1BBPINPS7000,5000SP1"
  3. 30 PRINT #1,"IP1000,0,2500,1600SC-15,15,-10,10"
  4. 40 GOSUB 130
  5. 50 PRINT #1,"IP2500,0,1000,1600"
  6. 60 GOSUB 130
  7. 70 PRINT #1,"IP1000,1600,2500,0"
  8. 80 GOSUB 130
  9. 90 PRINT #1,"IP2500,1600,1000,0"
  10. 100 GOSUB 130
  11. 110 PRINT #1,"SP0PG;"
  12. 120 END
  13. 130 PRINT #1,"PA1,2PD1,4,3,4,3,7,2,7,4,9,6,7,5,7"
  14. 140 PRINT #1,"PD5,4,12,4,12,5,14,3,12,1,12,2,1,2PU"
  15. 150 RETURN
  16.  
  17.